home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
os2
/
af0_23b.zip
/
afdeinst.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-08-09
|
1KB
|
53 lines
/**/
call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
call SysLoadFuncs
Call SysCls
Say
Say " AF - The Archive Folder - Deinstallation program"
Say " ================================================"
Say
Say " This script will destroy the Archive Folder program object and all"
Say " the associations and templates Archive Folder uses."
Say
Call charout, " Do you want to continue? (y/N): "
answer = SysGetKey(echo)
if answer <> "Y" then return
id.0 = 6
id.1 = "<AF_ARJ_TEMPLATE>"
id.2 = "<AF_ZIP_TEMPLATE>"
id.3 = "<AF_ARC_TEMPLATE>"
id.4 = "<AF_RAR_TEMPLATE>"
id.5 = "<AF_LZH_TEMPLATE>"
id.6 = "<AF_TEMPS>"
Do i = 1 To 6
if SysDestroyObject( id.i ) then
Say " "id.i "successfully destroyed"
else
Say " Error destroying" id.i
End
if SysIni( 'USER', "PMWP_ASSOC_TYPE", "Archive", 'DELETE:' ) = '' Then
Say " Removed Archive file type"
else
Say " Error removing Archive file type"
if SysIni( 'USER', "AF", 'DELETE:' ) = '' Then
Say " Removed AF entry in OS2.INI"
else
Say " Error removing AF entry in OS2.INI"
Say
Say " Now you can delete the installation directory to remove"
Say " The Archive Folder entirely."
Say
'@pause'